home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / source / contrib / supported / g-brief / g-brief.cls < prev    next >
Text File  |  1995-03-15  |  11KB  |  317 lines
  1. %% 
  2. %% This is file `g-brief.cls', generated 
  3. %% on <1995/3/4> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% g-brief.dtx  (with options: `class')
  8. %% 
  9. %% Copyright (C) 1991-1994 by Michael Lenzen. All rights reserved. 
  10. %% 
  11. %% 
  12. %% This file is part of the g-brief package 
  13. %% 
  14. %% IMPORTANT NOTICE: 
  15. %% 
  16. %% You are not allowed to change this file. You may however copy this file 
  17. %% to a file with a different name and then change the copy. 
  18. %% 
  19. %% You are NOT ALLOWED to distribute this file alone. You are NOT ALLOWED 
  20. %% to take money for the distribution or use of this file (or a changed 
  21. %% version) except for a nominal charge for copying etc. 
  22. %% 
  23. %% You are allowed to distribute this file under the condition that it is 
  24. %% distributed together with all files mentioned below. 
  25. %% 
  26. %% If you receive only some of these files from someone, complain! 
  27. %% 
  28. %% Error Reports in case of UNCHANGED versions to 
  29. %% 
  30. %% Michael Lenzen 
  31. %% Zur Belsmuehle 15 
  32. %% 53347 Alfter 
  33. %% Germany 
  34. %% Internet: <lenzen@zaphod.rhein.de> 
  35. %% 
  36. \def\filedate{1994/10/01}
  37. \def\fileversion{1.3e}
  38. \def\filename{g-brief.cls}
  39. \NeedsTeXFormat{LaTeX2e}[1994/06/01]
  40.  
  41. \ProvidesClass{g-brief}[\filedate\space v\fileversion\space g-brief class]
  42.  
  43. \newdimen\VorschubH
  44. \newdimen\VorschubV
  45. \VorschubH = 0.0mm
  46. \VorschubV = 0.0mm
  47.  
  48. \DeclareOption{10pt}{\def\@schrift{0}}
  49. \DeclareOption{11pt}{\def\@schrift{1}}
  50. \DeclareOption{12pt}{\def\@schrift{2}}
  51. \DeclareOption{german}
  52.   {\def\sprache{german}
  53.    \def\telefontex{{\footnotesize Telefon\/:}}
  54.    \def\telefaxtext{{\footnotesize Telefax\/:}}
  55.    \def\telextext{{\footnotesize Telex\/:}}
  56.    \def\btxtext{{\footnotesize BTX\/:}}
  57.    \def\emailtext{{\footnotesize E--Mail\/:}}
  58.    \def\banktext{{\footnotesize Bankverbindung\/:}}
  59.    \def\blztext{{\footnotesize BLZ}}
  60.    \def\kontotext{{\footnotesize Kto.}}
  61.    \def\betrefftext{{\normalsize Betr.:}}
  62.    \def\ihrzeichentext{\footnotesize\textsc{Ihr Zeichen}}
  63.    \def\ihrschreibentext{\footnotesize\textsc{Ihr Schreiben vom}}
  64.    \def\meinzeichentext{\footnotesize\textsc{Mein Zeichen}}
  65.    \def\unserzeichentext{\footnotesize\textsc{Unser Zeichen}}
  66.    \def\datumtext{\footnotesize\textsc{Datum}}
  67.    \def\datum{\number\day.~\ifcase\month\or Januar\or Februar\or
  68.      M\"arz\or April\or Mai\or Juni\or Juli\or August\or September\or
  69.      Oktober\or November\or Dezember\fi \space\number\year}}
  70. \DeclareOption{english}
  71.   {\def\telefontex{{\footnotesize Phone\/:}}
  72.    \def\telefaxtext{{\footnotesize Fax\/:}}
  73.    \def\telextext{{\footnotesize Telex\/:}}
  74.    \def\emailtext{{\footnotesize E--Mail\/:}}
  75.    \def\banktext{{\footnotesize Bank\/:}}
  76.    \def\blztext{{\footnotesize code}}
  77.    \def\kontotext{{\footnotesize acct}}
  78.    \def\betrefftext{{\normalsize Subj.:}}
  79.    \def\ihrzeichentext{\footnotesize\textsc{Your Ref.}}
  80.    \def\ihrschreibentext{\footnotesize\textsc{Your Mail}}
  81.    \def\meinzeichentext{\footnotesize\textsc{My Ref.}}
  82.    \def\unserzeichentext{\footnotesize\textsc{Our Ref.}}
  83.    \def\datumtext{\footnotesize\textsc{Date}}
  84.    \def\datum{\number\day
  85.      \ifcase\day \or
  86.      st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or %  1..10
  87.      th\or th\or th\or th\or th\or th\or th\or th\or th\or th\or % 11..20
  88.      st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or % 21..30
  89.      st\fi
  90.      \space \ifcase\month \or January\or February\or March\or April\or May\or
  91.      June\or July\or August\or September\or October\or November\or
  92.      December\fi \space\number\year}
  93.    \def\sprache{english}}
  94. \DeclareOption{usenglish}
  95.   {\def\telefontex{{\footnotesize Phone\/:}}
  96.    \def\telefaxtext{{\footnotesize Fax\/:}}
  97.    \def\telextext{{\footnotesize Telex\/:}}
  98.    \def\emailtext{{\footnotesize E--Mail\/:}}
  99.    \def\banktext{{\footnotesize Bank\/:}}
  100.    \def\blztext{{\footnotesize code}}
  101.    \def\kontotext{{\footnotesize acct}}
  102.    \def\betrefftext{{\normalsize Subj.:}}
  103.    \def\ihrzeichentext{\footnotesize\textsc{Your Ref.}}
  104.    \def\ihrschreibentext{\footnotesize\textsc{Your Mail}}
  105.    \def\meinzeichentext{\footnotesize\textsc{My Ref.}}
  106.    \def\unserzeichentext{\footnotesize\textsc{Our Ref.}}
  107.    \def\datumtext{\footnotesize\textsc{Date}}
  108.    \def\datum{\ifcase\month\or January\or February\or March\or
  109.      April\or May\or June\or July\or August\or September\or October\or
  110.      November\or December\fi \space\number\day, \number\year}
  111.    \def\sprache{usenglish}}
  112.  
  113. \ExecuteOptions{11pt,german}
  114. \ProcessOptions
  115.  
  116. \LoadClass[1\@schrift pt, a4paper, oneside, draft]{letter}[1994/06/01]
  117.  
  118. \normalsize
  119.  
  120. \newdimen\ZA
  121. \ZA=4.23mm
  122.  
  123. \setlength\oddsidemargin{0\p@}
  124. \setlength\evensidemargin{\oddsidemargin}
  125. \setlength\marginparwidth{90\p@}
  126. \setlength\marginparsep{11\p@}
  127. \setlength\marginparpush{5\p@}
  128. \setlength\topmargin{-3\ZA}
  129. \setlength\headheight{1\ZA}
  130. \setlength\headsep{1.5\ZA}
  131. \setlength\topskip{0.8\ZA}
  132.  
  133. \setlength\textheight{57\ZA}
  134. \setlength\textwidth{165mm}
  135.  
  136. \setlength\lineskip{1\p@}
  137. \setlength\normallineskip{1\p@}
  138.  
  139. \renewcommand\baselinestretch{1}
  140.  
  141. \advance\topmargin by \VorschubV
  142. \advance\oddsidemargin by \VorschubH
  143. \setlength\evensidemargin{\oddsidemargin}
  144.  
  145. \AtEndOfClass{\pagestyle{firstpage}}
  146.  
  147. \def\Name#1{\def\name{#1}} \def\name{}
  148. \def\Strasse#1{\def\strasse{#1}} \def\strasse{}
  149. \def\Zusatz#1{\def\zusatz{#1}} \def\zusatz{}
  150. \def\Ort#1{\def\ort{#1}} \def\ort{}
  151. \def\RetourAdresse#1{\def\retouradresse{#1}} \def\retouradresse{}
  152.  
  153. \def\Telefon#1{\def\telefon{#1}} \def\telefon{}
  154. \def\Telefax#1{\def\telefax{#1}} \def\telefax{}
  155. \def\Telex#1{\def\telex{#1}} \def\telex{}
  156. \def\BTX#1{\def\btx{#1}} \def\btx{}
  157. \def\EMail#1{\def\email{#1}} \def\email{}
  158.  
  159. \def\Bank#1{\def\bank{#1}} \def\bank{}
  160. \def\BLZ#1{\def\blz{#1}} \def\blz{}
  161. \def\Konto#1{\def\konto{#1}} \def\konto{}
  162.  
  163. \def\Postvermerk#1{\def\postvermerk{#1}} \def\postvermerk{}
  164. \def\Adresse#1{\def\adresse{#1}} \def\adresse{}
  165.  
  166. \def\IhrZeichen#1{\def\ihrzeichen{#1}} \def\ihrzeichen{}
  167. \def\IhrSchreiben#1{\def\ihrschreiben{#1}} \def\ihrschreiben{}
  168. \def\MeinZeichen#1{\def\meinzeichen{#1}} \def\meinzeichen{}
  169. \def\Datum#1{\def\datum{#1}} \def\datum{\datum}
  170.  
  171. \def\Betreff#1{\def\betreff{#1}} \def\betreff{}
  172.  
  173. \def\Anrede#1{\def\anrede{#1}} \def\anrede{}
  174. \def\Gruss#1#2{\def\gruss{#1} \def\grussskip{#2}}
  175.   \def\gruss{} \def\grussskip{}
  176.  
  177. \def\Unterschrift#1{\def\unterschrift{#1}} \def\unterschrift{}
  178.  
  179. \def\Anlagen#1{\def\anlagen{#1}} \def\anlagen{}
  180. \def\Verteiler#1{\def\verteiler{#1}} \def\verteiler{}
  181.  
  182. \long\def\Einrueckung#1{\par\begin{tabular}{@{\hspace{1in}}p{5in}@{}}
  183.   #1\end{tabular}\par}
  184.  
  185. \newif\ifunserz\unserzfalse
  186.   \def\unserzeichen{\unserztrue}
  187.  
  188. \newenvironment{g-brief}
  189.  {
  190.  \thispagestyle{firstpage}
  191.  \setlength\unitlength{1mm}
  192.  
  193.  \c@page\@ne
  194.  \interlinepenalty=200
  195.  \newpage
  196.  
  197.  \begin{picture}(0,0)
  198.    \put(-15,- 64.16){\line(1,0){3}}
  199.    \put(-15,-170.16){\line(1,0){3}}
  200.  
  201.    \put( -7, -11.00){\makebox(85,4)
  202.      {\scriptsize \ifx \retouradresse\empty
  203.       \textrm{\name\ $\cdot$\ \strasse\
  204.       $\cdot$\ \ort} \else \textrm{
  205.       \retouradresse} \fi }}
  206.  
  207.    \put( -7, -11.10){\line(1,0){85}}
  208.  
  209.    \put(0,-17.15){\parbox[t]{3in}{\ifx \postvermerk\empty \hfill \par
  210.        \else \textbf{\postvermerk} \par \vspace{2mm} \fi \adresse}}
  211.  
  212.    \put(-7,-7.15){\line( 1, 0){1}}
  213.    \put(-7,-7.15){\line( 0,-1){1}}
  214.    \put(78,-7.15){\line(-1, 0){1}}
  215.    \put(78,-7.15){\line( 0,-1){1}}
  216.    \put(-7,-50.0){\line( 1, 0){1}}
  217.    \put(-7,-50.0){\line( 0, 1){1}}
  218.    \put(78,-50.0){\line(-1, 0){1}}
  219.    \put(78,-50.0){\line( 0, 1){1}}
  220.  \end{picture}
  221.  
  222.  \vspace{11.5\ZA}
  223.  
  224.  \ifx \ihrzeichen\empty \ifx \ihrschreiben\empty \ifx
  225.  \meinzeichen\empty \makebox[45.5mm][l]{} \makebox[55.0mm][l]{}
  226.  \makebox[20.0mm][l]{} \else \makebox[45.5mm][l]{\ihrzeichentext}
  227.  \makebox[55.0mm][l]{\ihrschreibentext} \ifunserz
  228.  \makebox[20.0mm][l]{\unserzeichentext} \else
  229.  \makebox[20.0mm][l]{\meinzeichentext} \fi \fi \else
  230.  \makebox[45.5mm][l]{\ihrzeichentext}
  231.  \makebox[55.0mm][l]{\ihrschreibentext} \ifunserz
  232.  \makebox[20.0mm][l]{\unserzeichentext} \else
  233.  \makebox[20.0mm][l]{\meinzeichentext} \fi \fi \else
  234.  \makebox[45.5mm][l]{\ihrzeichentext}
  235.  \makebox[55.0mm][l]{\ihrschreibentext} \ifunserz
  236.  \makebox[20.0mm][l]{\unserzeichentext} \else
  237.  \makebox[20.0mm][l]{\meinzeichentext} \fi \fi
  238.  \makebox[37.0mm][r]{\datumtext} \\
  239.  \makebox[45.5mm][l]{\ihrzeichen}
  240.  \makebox[55.0mm][l]{\ihrschreiben}
  241.  \makebox[20.0mm][l]{\meinzeichen}
  242.  \makebox[37.0mm][r]{\datum} \par
  243.  
  244.  \vspace{8mm}
  245.  
  246.  \ifcase\@ptsize\vspace{0.045pt}\or \vspace{-1.555pt}\or
  247.  \vspace{-2.955pt} \fi
  248.  
  249.  \ifx \betreff\empty \else \betrefftext \space \space \betreff \mbox{}
  250.  \par \vspace{-1\parskip} \vspace{8mm} \fi
  251.  
  252.  \ifcase\@ptsize\vspace{0.045pt}\or \vspace{-1.555pt}\or
  253.  \vspace{-2.955pt} \fi
  254.  
  255.  \ifx \anrede\empty \else \anrede \par \fi\nobreak
  256.  }
  257.  {
  258.  \vspace{\grussskip} \par \nobreak \stopbreaks \noindent
  259.  \parbox[t]{3.5in}{\raggedright \ignorespaces {\normalsize \ifx
  260.      \gruss\empty \else \gruss \mbox{} \\[4\ZA] \fi \ifx
  261.      \empty\unterschrift \relax \else \textsl{(\unterschrift)}}
  262.    \fi\strut} \ifx \anlagen\empty \else \vspace{4mm} \par \anlagen
  263.  \par \fi \ifx \verteiler\empty \else \ifx \anlagen\empty
  264.  \vspace{4mm}\par \fi \verteiler \fi }
  265.  
  266. \def\ps@firstpage{ \headheight16pt \def\@oddhead{\unitlength1mm
  267.    \begin{picture}(0,0)
  268.      \put(-9, 3){\parbox{180mm}{\LARGE\textit{\quad\name}}}
  269.      \put(-9, 4){\parbox{180mm}{\hfill \normalsize \textsl{
  270.         \begin{tabular}{r} \strasse \quad \\ \ifx \zusatz\empty \else
  271.         \zusatz \quad \\ \fi \ort \quad \end{tabular}}}}
  272.      \put(-9,-7){\rule{180mm}{0.5pt}}
  273.    \end{picture} \hfill}
  274.  \def\@oddfoot{\unitlength1mm
  275.    \def\istsprache{german}
  276.    \begin{picture}(0,0)
  277.      \put(-9,0){\parbox{180mm}{\footnotesize\rule{180mm}{0.5pt}
  278.      \begin{tabular}{ll}
  279.        \ifx \telefon\empty \else \telefontex & \telefon \\ \fi \ifx
  280.        \telefax\empty \else \telefaxtext & \telefax \\ \fi \ifx
  281.        \telex\empty \else \telextext & \telex \\ \fi \ifx
  282.        \sprache\istsprache \ifx \btx\empty \else \btxtext & \btx \\
  283.        \fi \fi \ifx \email\empty \else \emailtext & \email \\ \fi \
  284.      \end{tabular}\hfill
  285.      \begin{tabular}{ll}
  286.        \ifx \bank\empty \else \ifx \blz\empty \else \ifx
  287.        \konto\empty \else \banktext & \bank \\ & \blztext \space \blz
  288.        \\ & \kontotext \space \konto \\ \ \fi \fi \fi
  289.      \end{tabular}}}
  290.   \end{picture} \hfill}
  291. \def\@evenhead{\@oddhead} \def\@evenfoot{\@oddfoot}}
  292.  
  293. \def\ps@regularpage{\headheight36pt\def\@oddhead{\unitlength1mm
  294.    \begin{picture}(0,0)
  295.      \put(-9,0){\makebox(180,15){\normalsize\textit{\quad\name}
  296.          \hfill\textsl{\datum\hfill\pagename\ \thepage\quad}}}
  297.      \put(-9,0){\rule{180mm}{0.5pt}}
  298.    \end{picture}\hfill}
  299.  \def\@oddfoot{\empty} \def\@evenhead{\@oddhead}
  300.  \def\@evenfoot{\@oddfoot}}
  301.  
  302. \def\istsprache{german}
  303. \ifx \sprache\istsprache
  304.   \IfFileExists{babel.sty}
  305.     {\RequirePackage[german]{babel}[1994/06/05] }
  306.     {\IfFileExists{german.sty}
  307.       {\RequirePackage{german}}
  308.         {\ClassError{g-brief}
  309.           {Neither babel nor german.sty installed !!!}
  310.           {Get babel or german.sty !!!}}}
  311. \fi
  312.  
  313.  
  314. \endinput
  315. %% 
  316. %% End of file `g-brief.cls'.
  317.